CGI perl : formating the output

--===============1197740560==
Content-Type: multipart/alternative; boundary=0016e644de6cd5377604658f60b6

--0016e644de6cd5377604658f60b6
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Dear All,
I am new to Perl CGI and few querries regarding formating and
dispaying the output message. I have written below script and the problem I
am facing with this script is as below.
1) At the start of the script the (before enterring the user name and
password ), it shows the message "*You have not enterred some field"
,*(this is the print statement I used to check user has enter the data
or
not.).
2) I want the out put to be displayed line by line like username in first
line and passwrd in second line ( we can hide the password with ****)
3) When I run the script it shows the* output along with the login window*.
I don't want to display the login window, only I want to see the output
message.
we can do one thing, if password or user id is wrong, then we can prompt
for login window by saying enterred information is wrong.

Please help to overcome this issue.
**
#!/usr/local/bin/perl -w
use CGI;
my $q = new CGI;

print $q -> header,
$q -> start_html(),
$q -> start_form(),
$q->table
(
$q -> Tr
( [
$q ->td(['Enter User Name :',
$q -> textfield ( -name => 'username',
-size => '50'
) ] ),
#print "Password",
$q ->td( ['Enter Password:',
$q -> password_field( -name => 'pass',
-size => '50',
) ] ),
]),
);

print $q-> submit();
print $q -> end_form();
#print $q -> end_html();
if( $q -> param("username") and $q -> param("pass"))
{
print $q -> param("username");

print $q -> param("pass");
}
else
{
print "You have not enterred some field \n";
}
#print $q -> end_form();
print $q -> end_html();



--
--
Regards,
Mujju

--0016e644de6cd5377604658f60b6
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Re: CGI perl : formating the output

So... regardless how many times people in this group have told you to "use
strict", you still don't.

And, you have started taking this group as an alternative to reading the
documentation or doing a Google search for tutorials.

You are not really presenting here a problem to discuss or to get help on.
You are just giving instructions on how someone should write/modify a script
for you.

I don't think that's the way to get help here. But hey, I might be wrong -
let's see if someone else thinks the opposite.


Paco




> From: Perl Perl
> Sent: Friday, March 20, 2009 10:26 AM
> To: activeperl@listserv.activestate.com
> Subject: CGI perl : formating the output
>
>
>
>
> Dear All,
> I am new to Perl CGI and few querries regarding formating and
> dispaying the
> output message. I have written below script and the problem I am facing
> with this
> script is as below.
> 1) At the start of the script the (before enterring the user name and
> password ), it
> shows the message "You have not enterred some field" , (this is the print
> statement
> I used to check user has enter the data or not.).
> 2) I want the out put to be displayed line by line like username in first
> line and
> passwrd in second line ( we can hide the password with ****)
> 3) When I run the script it shows the output along with the login window.
> I don't
> want to display the login window, only I want to see the output message.
>
> we can do one thing, if password or user id is wrong, then we can
> prompt for
> login window by saying enterred information is wrong.
>
> Please help to overcome this issue.


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: CGI perl : formating the output

--===============0176693555==
Content-Type: multipart/alternative; boundary=0016e641db12c0e20a046590684d

--0016e641db12c0e20a046590684d
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Dear Paco and Activeperl team,
I never tried to use this forum in wrong way. to be honest I tried
my all guns to overcome those issue since morning and at the last I thought
let me get the help from our dear friends.
As I said I am beginer, I started CGI script 2 days before ( I was going
through material sometime but not practice ). And I don't have any idea in
CGI how to print and statement association.
I request all of don't feel that I am using this forum in wrong way.

Now I left with login page and initail message as I mentioned in last mail.

1) At the start of the script the (before enterring the user name and
password ), it shows the message "You have not enterred some field" ,
3) When I run the script it shows the output along with the login window. I
don't want to display the login window, only I want to see the output
message.

Any help will be appreciated.

Thanks,


On 3/20/09, Francisco Zarabozo wrote:
>
>
> So... regardless how many times people in this group have told you to "use
> strict", you still don't.
>
> And, you have started taking this group as an alternative to reading the
> documentation or doing a Google search for tutorials.
>
> You are not really presenting here a problem to discuss or to get help on.
> You are just giving instructions on how someone should write/modify a script
> for you.
>
> I don't think that's the way to get help here. But hey, I might be wrong -
> let's see if someone else thinks the opposite.
>
>
> Paco
>
>
>
>
> From: Perl Perl
>> Sent: Friday, March 20, 2009 10:26 AM
>> To: activeperl@listserv.activestate.com
>> Subject: CGI perl : formating the output
>>
>>
>>
>>
>> Dear All,
>> I am new to Perl CGI and few querries regarding formating and
>> dispaying the
>> output message. I have written below script and the problem I am facing
>> with this
>> script is as below.
>> 1) At the start of the script the (before enterring the user name and
>> password ), it
>> shows the message "You have not enterred some field" , (this is the print
>> statement
>> I used to check user has enter the data or not.).
>> 2) I want the out put to be displayed line by line like username in first
>> line and
>> passwrd in second line ( we can hide the password with ****)
>> 3) When I run the script it shows the output along with the login window.
>> I don't
>> want to display the login window, only I want to see the output message.
>>
>> we can do one thing, if password or user id is wrong, then we can
>> prompt for
>> login window by saying enterred information is wrong.
>>
>> Please help to overcome this issue.
>>
>
>
>


--
--
Regards,
Mujju

--0016e641db12c0e20a046590684d
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Re: CGI perl : formating the output

Hi

My notes below are pseudo code, but it should get you get you started in
the right direction. If you don't want to display the login window, you
have to check for it before you output the form.

Perl Perl wrote:
>
> Dear All,
> I am new to Perl CGI and few querries regarding formating and
> dispaying the output message. I have written below script and the
> problem I am facing with this script is as below.
> 1) At the start of the script the (before enterring the user name and
> password ), it shows the message "*You have not enterred some field"
> ,* (this is the print statement I used to check user has enter the
> data or not.).
> 2) I want the out put to be displayed line by line like username in
> first line and passwrd in second line ( we can hide the password with
> ****)
> 3) When I run the script it shows the* output along with the login
> window*. I don't want to display the login window, only I want to see
> the output message.
> we can do one thing, if password or user id is wrong, then we can
> prompt for login window by saying enterred information is wrong.
>
> Please help to overcome this issue.
> **
> #!/usr/local/bin/perl -w
use strict; # always a good idea.

use CGI::Carp qw(fatalsToBrowser); # a good idea while you're debugging a cgi script.
#It will show you perl errors in the browser.


> use CGI;
> my $q = new CGI;
>
> print $q -> header,
> $q -> start_html(),
>
##### Check for your parameters here. If the parameters exist, then it
must be the second time the page has been run. (Do your checks.)
##### If the parameters don't exist, then show your form.
if ($q->param) {
## parameters exist, do checks for valid username and password.
}
else
{
# just show the form.
}
>
> $q -> start_form(),
> $q->table
> (
> $q -> Tr
> ( [
> $q ->td(['Enter User Name :',
> $q -> textfield ( -name => 'username',
> -size => '50'
> ) ] ),
> #print "Password",
> $q ->td( ['Enter Password:',
> $q -> password_field( -name => 'pass',
> -size => '50',
> ) ] ),
> ]),
> );
>
> print $q-> submit();
> print $q -> end_form();
> #print $q -> end_html();
>

> #if( $q -> param("username") and $q -> param("pass"))
> #{
> # print $q -> param("username");
>
> # print $q -> param("pass");
> #}
> #else
> #{
> # print "You have not enterred some field \n";
> #}
> # #print $q -> end_form();
>

> print $q -> end_html();
>
>
>

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs